get line 1 of field "Nummer" of card "Kastentemplate"
put field "Kastennummer" into derzeit
if it Γëñ derzeit then
visual effect wipe left
go to card "Liste 1"
else
visual effect wipe left
go to card "Liste" && derzeit + 1
end if
end mouseUp
</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>438</left>
<top>19</top>
<right>505</right>
<bottom>64</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Stammsammlung</name>
<script>on mouseUp
visual effect zoom open
go to card "Stammsammlung"
end mouseUp
</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>378</left>
<top>18</top>
<right>427</right>
<bottom>66</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>zur Karte</name>
<script>on mouseUp
get field "Kastennummer"
put it into field "Kastennummer" of card "Kastentemplate"
visual effect zoom open
go to card "Kastentemplate"
end mouseUp
</script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>6</left>
<top>56</top>
<right>242</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>14</textSize>
<textStyle>italic</textStyle>
<textHeight>18</textHeight>
<name>Organismus</name>
<script></script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>79</top>
<right>512</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Courier</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textHeight>13</textHeight>
<name>Liste</name>
<script></script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>329</left>
<top>19</top>
<right>369</right>
<bottom>55</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17481</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Exportieren</name>
<script>on mouseUp
global Gesamtheit
if Gesamtheit is true then
ask file "Please name the output file!" with "Collection" && the date
if it is empty then exit mouseUp
put it into Export
open file Export
push card
set cursor to busy
set lockScreen to true
write "Strain Collection" && the name of this stack & return to file Export
repeat with Liste = 1 to the number of cards of this background - 1
go card "Liste" && Liste
write return & "Box No." && field "Kastennummer" & return to file Export
if field "Organismus" is not empty then write "Species" && field "Organismus" & return to file Export
write "Box Info" && field "Kommentar" & return to file Export
repeat with Zeile = 1 to the number of lines of field "Liste"
write line Zeile of field "Liste" & return to file Export
end repeat
end repeat
close file Export
pop card
else
ask file "Please, name the output file!" with "Box No." && field "Kastennummer" & "," && the date
if it is empty then exit mouseUp
put it into Export
open file Export
set cursor to busy
write "Strain Collection" && the name of this stack & return to file Export
write "Box No." && field "Kastennummer" & return to file Export
if field "Organismus" is not empty then write "Species" && field "Organismus" & return to file Export
write "Kasteninfo" && field "Kommentar" & return to file Export
repeat with Zeile = 1 to the number of lines of field "Liste"
write line Zeile of field "Liste" & return to file Export
end repeat
close file Export
end if
end mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>282</left>
<top>19</top>
<right>324</right>
<bottom>55</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1007</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Drucken</name>
<script>on mouseUp
gobal Gesamtheit
if Gesmtheit is true then
unmark all cards
mark any card of this background
unmark card "Listentemplate"
else
unmark all cards
mark this card
end if
open report printing with template "Strain List"
if the result is "No such report template" then
answer "The template is missing. Please create a template ΓÇ£Strain ListΓÇ¥ for this stack."
else if the result is not empty then
put the result
answer "Can't print strain list!"
else
print marked cards
end if
close printing
unmark all cards
end mouseUp</script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>1</left>
<top>79</top>
<right>512</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Listeninfo</name>
<script>on mouseUp
hide field "Listeninfo"
set the scroll of field "Listeninfo" to 0
end mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>135</left>
<top>21</top>
<right>172</right>
<bottom>54</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5203</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Kasteninfo</name>
<script>on mouseUp
show field "Kommentar"
end mouseUp</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>173</left>
<top>22</top>
<right>213</right>
<bottom>61</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11714</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Listeninfo</name>
<script>on mouseUp
show field "Listeninfo"
end mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>2</left>
<top>80</top>
<right>512</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Kommentar</name>
<script>on mouseUp
hide field "Kommentar"
end mouseUp
</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>215</left>
<top>45</top>
<right>244</right>
<bottom>67</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17779</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Zur├╝ck</name>
<script>on mouseUp
get field "Kastennummer"
if it = 1 then
get line 1 of field "Nummer" of card "Kastentemplate"
visual effect wipe right
go card "Liste" && it
else
visual effect wipe right
go card "Liste" && it - 1
end if
end mouseUp
</script>
</part>
<part>
<id>34</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>273</left>
<top>57</top>
<right>332</right>
<bottom>82</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textHeight>10</textHeight>
<name>Drucken</name>
<script></script>
</part>
<part>
<id>39</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>318</left>
<top>57</top>
<right>377</right>
<bottom>82</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textHeight>10</textHeight>
<name>Exportieren</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>31</id>
<text>The listed can not be modified directly, because the data have to be in a specific format (on entering data via the "Strain Box" card, every space and return in names and commentaries is altered to tab or to option/space) to allow searching and redistribution for display.
The list of strains can be printed or exported as a "text only" file.
For printing, a suited report is used automatically. Its field sizes have been optimized for the LaserWriter, and DIN A4 paper size, but can easily be modified for other printers and formats. The list of strains of the actual card is printed with its name and commentary as a header. If printing is chosen with the optionKey down, all lists of the collection will be printed.
For export, a name of the file is requested. The name of the strain collection, the box number, the organism, the box info and the data of the individual strains are written to the file. Strains are separated by return, genes by space, the blocks of additional information (plasmid, alternate names, origin, commentary) by tabs (space tab space), which allows an easy alignment with a word processor, Within the blocks of additional information, however, words are separated by option/space, which does not break automatically at the end of a line. It is recommended to replace the option/space with space in using a word processor. A replacement during export would have slowed down the export very much, because the data would have to be read and examined one by one. Mating type "alpha" is represented by ª (option-h). For a correct display, all genes should be set in italics.</text>
</content>
<content>
<layer>background</layer>
<id>34</id>
<text>Print
List</text>
</content>
<content>
<layer>background</layer>
<id>39</id>
<text>Export
List</text>
</content>
<name>Stammlisten</name>
<script>on doMenu Was
if was is "Delete Card" or was is "Cut Card" then
answer "Please empty box and reuse!"
else
pass doMenu
end if
end doMenu
on closeCard
hide field "Listeninfo"
hide field "Kommentar"
set the scroll of field "Listeninfo" to 0
end closeCard
on idle
global Gesamtheit
if the optionKey is down then
put true into Gesamtheit
put "Print" & return & "Collection" into field "Drucken"
put "Export" & return & "Collection" into field "Exportieren"
else
put false into Gesamtheit
put "Print" & return & "List" into field "Drucken"
put "Export" & return & "List" into field "Exportieren"